﻿<!-- #Include File="Function.asp" -->
<%
Select Case Action
Case "Error"
    Call AllError
Case "Stop"
    Call AllStop
Case "Success"
    Call Success
Case "Back"
    Call Back
Case "WebClose"
    Call WebClose
Case "Web404"
    Call Web404
Case Else
    Response.Redirect InstallDir & "Index.asp"
End Select

Function AllError
	Dim Text
	Text=Encode(Request.QueryString("Text"))
	Response.Write "<!doctype html>" & vbCrLf
	Response.Write "<html lang=""en"">" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta charset=""utf-8"">" & vbCrLf
	Response.Write "<title>出错信息</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body topmargin='80' bgcolor='#eeeeee'>" & vbCrLf
	Response.Write "<table cellspacing='0' cellpadding='0'  border='0' align='center'>" & vbCrLf
	Response.Write "<tr><td valign='bottom' align='middle'><table cellspacing='1' cellpadding='0' bgcolor='#e1e1e1' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#d7d7d7' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#969696' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='0' cellpadding='1' width=""100%"" border='0'>" & vbCrLf
	Response.Write "<tr><td align='center' style='padding:4px;font-size:9pt;lin-height:150%;width:280;height:60;'>" & vbCrLf
	Response.Write "<font style=""color:#969696;cursor:pointer;"">" & Text & "</font>" & vbCrLf
	Response.Write "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>" & vbCrLf
	Response.Write "</body></html>" & vbCrLf
	Response.Write CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(59)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
	Response.End()
End Function

Function AllStop
	Dim Text
	Text=Encode(Request.QueryString("Text"))
	Response.Write "<!doctype html>" & vbCrLf
	Response.Write "<html lang=""en"">" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta charset=""utf-8"">" & vbCrLf
	Response.Write "<title>系统暂停服务</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body topmargin='80' bgcolor='#eeeeee'>" & vbCrLf
	Response.Write "<table cellspacing='0' cellpadding='0'  border='0' align='center'>" & vbCrLf
	Response.Write "<tr><td valign='bottom' align='middle'><table cellspacing='1' cellpadding='0' bgcolor='#e1e1e1' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#d7d7d7' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#969696' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='0' cellpadding='1' width=""100%"" border='0'>" & vbCrLf
	Response.Write "<tr><td align='center' style='padding:4px;font-size:9pt;lin-height:150%;width:280;height:60;'>" & vbCrLf
	Response.Write "<font style=""color:#969696;cursor:pointer;"" onclick=""window.open('" & InstallDir & "');"">" & Text & "</font>" & vbCrLf
	Response.Write "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>" & vbCrLf
	Response.Write "</body></html>" & vbCrLf
	Response.Write CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(59)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
	Response.End()
End Function

Function Success
	Dim Text
	Text=Encode(Request.QueryString("Text"))
	Response.Write "<!doctype html>" & vbCrLf
	Response.Write "<html lang=""en"">" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta charset=""utf-8"">" & vbCrLf
	Response.Write "<title>操作成功</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body topmargin='80' bgcolor='#eeeeee'>" & vbCrLf
	Response.Write "<table cellspacing='0' cellpadding='0'  border='0' align='center'>" & vbCrLf
	Response.Write "<tr><td valign='bottom' align='middle'><table cellspacing='1' cellpadding='0' bgcolor='#e1e1e1' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#d7d7d7' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#969696' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='0' cellpadding='1' width=""100%"" border='0'>" & vbCrLf
	Response.Write "<tr><td align='center' style='padding:4px;font-size:9pt;lin-height:150%;width:280;height:60;'>" & vbCrLf
	Response.Write "<font style=""color:#969696;cursor:pointer;"" onclick=""window.open('" & InstallDir & "');"">" & Text & "</font>" & vbCrLf
	Response.Write "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>" & vbCrLf
	Response.Write "</body></html>" & vbCrLf
	Response.Write CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(59)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
	Response.End()
End Function

Function Back
	Dim Text
	Text=Encode(Request.QueryString("Text"))
	Response.Write "<!doctype html>" & vbCrLf
	Response.Write "<html lang=""en"">" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta charset=""utf-8"">" & vbCrLf
	Response.Write "<title>参数出错</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<body topmargin='80' bgcolor='#eeeeee'>" & vbCrLf
	Response.Write "<table cellspacing='0' cellpadding='0'  border='0' align='center'>" & vbCrLf
	Response.Write "<tr><td valign='bottom' align='middle'><table cellspacing='1' cellpadding='0' bgcolor='#e1e1e1' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#d7d7d7' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='1' cellpadding='0' bgcolor='#969696' border='0'>" & vbCrLf
	Response.Write "<tr><td bgcolor='#ffffff'><table cellspacing='0' cellpadding='1' width=""100%"" border='0'>" & vbCrLf
	Response.Write "<tr><td align='center' style='padding:4px;font-size:9pt;lin-height:150%;width:280;height:60;'>" & vbCrLf
	Response.Write "<font style=""color:#969696;cursor:pointer;"">" & Text & "</font>" & vbCrLf
	Response.Write "<br /><font style=""color:#ff0000;cursor:pointer;"" onclick=""history.back();"">[返 回]</font>" & vbCrLf
	Response.Write "</td></tr></table></td></tr></table></td></tr></table></td></tr></table></td></tr></table>" & vbCrLf
	Response.Write "</body></html>" & vbCrLf
	Response.Write CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(59)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
	Response.End()
End Function

Function WebClose
	Response.Write "<!doctype html>" & vbCrLf
	Response.Write "<html lang=""en"">" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta charset=""utf-8"">" & vbCrLf
	Response.Write "<title>" & SiteName & "</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<style type=""text/css"">" & vbCrLf
	Response.Write "body{ font-size:12px; background:#f2f2f2;}" & vbCrLf
	Response.Write "#mian{width:700px;height:400px;position:absolute;background:#FFF;left:50%;top:50%;margin-left:-350px;margin-top:-200px; border:1px #999 dashed;}" & vbCrLf
	Response.Write ".ts_404{width:600px;height:220px; margin:0px auto;font-size:160px; text-align:center; color:#999;font-family:'Microsoft Sans Serif';}" & vbCrLf
	Response.Write ".ts_1{height:30px; margin:0px auto;font-size:30px; text-align:center; color:#09F;font-family:'微软雅黑';}" & vbCrLf
	Response.Write ".ts_2{height:100px; margin:0px auto;font-size:14px; line-height:100px; text-align:center; color:#09F;font-family:'微软雅黑';}" & vbCrLf
	Response.Write ".Copyright{font-size:12px; line-height:50px; text-align:center; color:#09F; font-family:'微软雅黑';}" & vbCrLf
	Response.Write ".Copyright a{color:#09F;text-decoration: none;}" & vbCrLf
	Response.Write "</style>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<div id=""mian"">" & vbCrLf
	Response.Write "  <div class=""ts_404"">Sorry!</div>" & vbCrLf
	Response.Write "  <div class=""ts_1"">" & Encode(WebWords) & "</div>" & vbCrLf
	Response.Write "  <div class=""ts_2"">给您带来的不便敬请谅解，我们将尽快恢复网站！</div>" & vbCrLf
	Response.Write "  <div class=""Copyright"">Copyright &copy; Powered by <a href=""" & SiteUrl & """ target=""_blank"">" & SiteName & "</a>. All Right Reserved. </div>" & vbCrLf
	Response.Write "</div>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Response.Write CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(59)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
	Response.End()
End Function

Function Web404
	Response.Write "<!doctype html>" & vbCrLf
	Response.Write "<html lang=""en"">" & vbCrLf
	Response.Write "<head>" & vbCrLf
	Response.Write "<meta charset=""utf-8"">" & vbCrLf
	Response.Write "<title>404页面</title>" & vbCrLf
	Response.Write "</head>" & vbCrLf
	Response.Write "<style>" & vbCrLf
	Response.Write "* {list-style: none;margin: 0;padding: 0;text-decoration: none;font-family: '微软雅黑';}" & vbCrLf
	Response.Write "html, body {width: 100%;height: 100%;}" & vbCrLf
	Response.Write ".qt-error {width: 100%;height: 100%;background: #F0F0F0;padding-top: 110px;}" & vbCrLf
	Response.Write ".error-box {width: 500px;position: relative;/*left: 50%;*//*top: 50%;*//*-webkit-transform: translate(-50%,-50%);*//*-ms-transform: translate(-50%,-50%);*//*transform: translate(-50%,-50%);*/margin: 0 auto;}" & vbCrLf
	Response.Write ".error-box img {display: block;width: 100%;}" & vbCrLf
	Response.Write ".error-btn {background: -webkit-linear-gradient(left, #32E696, #00BE6E);background: -o-linear-gradient(left, #32E696, #00BE6E);background: -moz-linear-gradient(left, #32E696, #00BE6E);background: linear-gradient(left, #32E696, #00BE6E);border-radius: 4px;width: 140px;height: 40px;line-height: 40px;display: block;position: absolute;bottom: 70px;right: 30px;text-align: center;color: #fff;cursor: pointer;animation: myfirst 0.7s linear 1s infinite alternate;}" & vbCrLf
	Response.Write "@keyframes myfirst {from {background: -webkit-linear-gradient(left, #32E696, #00BE6E);background: -o-linear-gradient(left, #32E696, #00BE6E);background: -moz-linear-gradient(left, #32E696, #00BE6E);background: linear-gradient(left, #32E696, #00BE6E);box-shadow: 0 0 0 0 rgba(50,230,176,0.5);}to {background-image: -webkit-gradient(linear, left top, right top, from(#32e6b0), to(#00be85));background-image: -webkit-linear-gradient(left, #32e6b0, #00be85);background-image: linear-gradient(to right, #32e6b0, #00be85);box-shadow: 0 0 20px 4px rgba(50,230,176,0.7);}}" & vbCrLf
	Response.Write "</style>" & vbCrLf
	Response.Write "<body>" & vbCrLf
	Response.Write "<div class=""qt-error"">" & vbCrLf
	Response.Write "  <div class=""error-box""> <a href=""" & SiteUrl & """ class=""error-img"" title=""" & SiteName & """> <img src=""" & InstallDir & "Images/error/404new.png"" alt=""" & SiteName & """> </a> <a href=""" & SiteUrl & """ class=""error-btn"" title=""" & SiteName & """> 返回首页 </a> </div>" & vbCrLf
	Response.Write "</div>" & vbCrLf
	Response.Write "</body>" & vbCrLf
	Response.Write "</html>" & vbCrLf
	Response.Write CHR(60)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(32)&CHR(115)&CHR(116)&CHR(121)&CHR(108)&CHR(101)&CHR(61)&CHR(34)&CHR(100)&CHR(105)&CHR(115)&CHR(112)&CHR(108)&CHR(97)&CHR(121)&CHR(58)&CHR(110)&CHR(111)&CHR(110)&CHR(101)&CHR(59)&CHR(34)&CHR(62)&CHR(80)&CHR(117)&CHR(98)&CHR(108)&CHR(105)&CHR(115)&CHR(104)&CHR(101)&CHR(100)&CHR(32)&CHR(97)&CHR(116)&CHR(32)&Now()&CHR(44)&CHR(32)&CHR(80)&CHR(111)&CHR(119)&CHR(101)&CHR(114)&CHR(101)&CHR(100)&CHR(32)&CHR(66)&CHR(121)&CHR(32)&CHR(87)&CHR(97)&CHR(110)&CHR(103)&CHR(75)&CHR(97)&CHR(105)&CHR(67)&CHR(77)&CHR(83)&CHR(60)&CHR(47)&CHR(115)&CHR(112)&CHR(97)&CHR(110)&CHR(62)
	Response.End()
End Function

Function Encode(Content)
	Content=replace(Content,"<","&lt;")
	Content=replace(Content,">","&gt")
	Content=replace(Content,"'","")
	Content=replace(Content,chr(34),"")
	Encode=Content
End Function
%>